home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 64 / supercd64_1.iso / Toma nota / MicroArea / Demo WinLab / WINLAB 6.msi / Binary.New_Binary2 / Reader / RdLang32.ESP / PSPROCSET / 17 < prev    next >
Encoding:
Text File  |  2001-05-18  |  8.6 KB  |  488 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 5.0 12
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  6. /_ColorSep5044? true dd
  7. /docinitialize {
  8. PDF begin
  9. /_defaulthalftone
  10. /currenthalftone where
  11. { pop currenthalftone }
  12. { 4 dict dup begin
  13. currentscreen
  14. /SpotFunction exch def
  15. /Angle exch def
  16. /Frequency exch def
  17. /HalftoneType 1 def
  18. end }
  19. ifelse
  20. dd
  21. /currentcolortransfer where
  22. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  23. { /_defaultcolortransfer [currenttransfer dup dup dup] dd }
  24. ifelse
  25. end
  26. } bd
  27. /initialize {
  28. /overprintstack null dd
  29. sep_ops begin
  30. 50 dict begin
  31. _defaulthalftone sethalftone
  32. } bd
  33. /terminate {
  34. end end
  35. } bd
  36. /currentcolortransfer where
  37. { pop }
  38. {
  39. /setcolortransfer
  40. {
  41. settransfer pop pop pop
  42. } bd
  43. } ifelse
  44. /pl {
  45. transform
  46. 0.25 sub round 0.25 add exch
  47. 0.25 sub round 0.25 add exch
  48. itransform
  49. } bd
  50. /m { _sa? { pl } if moveto } bd
  51. /l { _sa? { pl } if lineto } bd
  52. /c
  53. {
  54. _sa? {3 {pl 6 2 roll} repeat} if
  55. curveto
  56. } bd
  57. /ri/pop ld
  58. /setSA { /_sa? xdd } bd
  59. /re
  60. {
  61. _sa?
  62. {
  63. 8 dict begin
  64. /:h exch def
  65. /:w exch def
  66. /:y exch def
  67. /:x exch def
  68. :x :y pl
  69. /:ymin exch def /:xmin exch def
  70. :x :w add :y :h add pl
  71. /:ymax exch def /:xmax exch def
  72. :xmin :ymin moveto
  73. :xmax :ymin lineto
  74. :xmax :ymax lineto
  75. :xmin :ymax lineto
  76. closepath
  77. end
  78. }
  79. {
  80. 4 2 roll moveto
  81. 1 index 0 rlineto
  82. 0 exch rlineto
  83. neg 0 rlineto
  84. closepath
  85. } ifelse
  86. } bd
  87. /q
  88. {
  89. gsave
  90. [currentoverprint overprintstack] /overprintstack xdd
  91. }
  92. [/overprintstack] bld
  93. /Q
  94. {
  95. overprintstack aload pop /overprintstack xdd setoverprint
  96. grestore
  97. }
  98. [/overprintstack] bld
  99. /AlmostFull?
  100. { dup maxlength exch length sub 2 le
  101. } bd
  102. /Expand
  103. { 1 index maxlength mul cvi dict
  104. dup begin exch { def } forall end
  105. } bd
  106. /xput
  107. { 3 2 roll
  108. dup 3 index known not
  109. { dup AlmostFull? { 1.5 Expand } if
  110. } if
  111. dup 4 2 roll put
  112. } bd
  113. /defineRes
  114. { _categories 1 index known not
  115. { /_categories _categories 2 index 10 dict xput store
  116. } if
  117. _categories exch 2 copy get 5 -1 roll 4 index xput put
  118. } bd
  119. /findRes {
  120. _categories exch get exch get
  121. } bd
  122. /L1setcolor {
  123. aload length
  124. dup 0 eq
  125. { pop .5 setgray }
  126. { dup 1 eq
  127. { pop setgray }
  128. { 3 eq
  129. { setrgbcolor }
  130. { setcmykcolor }
  131. ifelse }
  132. ifelse }
  133. ifelse
  134. } bind dd
  135. /concattransferfuncs {
  136. [ 3 1 roll /exec load exch /exec load ] cvx
  137. } bd
  138. /concatandsettransfer {
  139. /_defaulttransfer load concattransferfuncs settransfer
  140. } bd
  141. /concatandsetcolortransfer {
  142. colorplate 0 eq
  143. {
  144. _defaultcolortransfer aload pop
  145. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  146. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  147. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  148. concattransferfuncs
  149. setcolortransfer
  150. } if
  151. colorplate 1 ge colorplate 4 le and
  152. {
  153. 4 colorplate sub index 4 { exch pop } repeat
  154. concatandsettransfer
  155. } if
  156. colorplate 5 ge
  157. {
  158. 0 index 4 { exch pop } repeat
  159. concatandsettransfer
  160. } if
  161. } bd
  162. /tn5044sethalftone
  163. {
  164. begin
  165. HalftoneType 5 eq
  166. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  167. colorplate get
  168. here not {
  169. /Default here not { currentdict } if
  170. } if
  171. }
  172. { currentdict }
  173. ifelse
  174. end
  175. begin
  176. /TransferFunction here
  177. {
  178. concatandsettransfer
  179. currentdict dup length dict
  180. begin
  181. {
  182. 1 index /TransferFunction ne { def } { pop pop } ifelse
  183. } forall
  184. currentdict
  185. end
  186. }
  187. {
  188. currentdict
  189. } ifelse
  190. end
  191. sethalftone
  192. } bd
  193. /paintimage
  194. {
  195. colorplate 0 eq
  196. {
  197. { {currentfile cyanstr readstring pop}
  198. {currentfile magentastr readstring pop}
  199. {currentfile yellowstr readstring pop}
  200. {currentfile blackstr readstring pop
  201. currentfile graystr readstring pop pop}
  202. }
  203. { {currentfile cyanstr readhexstring pop}
  204. {currentfile magentastr readhexstring pop}
  205. {currentfile yellowstr readhexstring pop}
  206. {currentfile blackstr readhexstring pop
  207. currentfile graystr readhexstring pop pop}
  208. } ifelse
  209. true 4 colorimage
  210. }
  211. {
  212. 3 dict begin
  213. /binaryOK exch def
  214. [
  215. 1 1 5 {
  216. dup
  217. /currentfile cvx
  218. [ /cyanstr /magentastr /yellowstr /blackstr /graystr ]
  219. 3 -1 roll 1 sub get cvx
  220. binaryOK { /readstring } { /readhexstring } ifelse cvx
  221. /pop cvx
  222. 5 -1 roll
  223. colorplate dup 5 gt { pop 5 } if
  224. eq not { /pop cvx } if
  225. } for
  226. ] cvx bind
  227. end
  228. [
  229. colorplate 6 eq {
  230. /pop cvx
  231. negativecolorplate { 0 } { 1 } ifelse
  232. } if
  233. colorplate 4 le
  234. {
  235. 1 /exch cvx /sub cvx
  236. } if
  237. colorplate 6 ne
  238. {
  239. systemdict /currenttransfer get exec
  240. aload pop
  241. } if
  242. ] cvx
  243. gsave
  244. systemdict /settransfer get exec
  245. systemdict /image get exec
  246. grestore
  247. } ifelse
  248. } bd
  249. /getrampcolor {
  250. /indx exch def
  251. [
  252. 0 1 NumComp 1 sub {
  253. dup
  254. Samples exch get
  255. dup type /stringtype eq { indx get } if
  256. exch
  257. Scaling exch get aload pop
  258. 3 1 roll
  259. mul add
  260. } for
  261. ]
  262. L1setcolor
  263. } bd
  264. /GenStrips {
  265. 40 dict begin
  266. /background exch def
  267. /ext1 exch def
  268. /ext0 exch def
  269. /BBox exch def
  270. /y2 exch def
  271. /x2 exch def
  272. /y1 exch def
  273. /x1 exch def
  274. /rampdict exch def
  275. gsave
  276. BBox length 0 gt {
  277. BBox 0 get BBox 1 get
  278. BBox 2 get BBox 0 get sub
  279. BBox 3 get BBox 1 get sub
  280. rectclip
  281. } if
  282. x1 x2 eq
  283. {
  284. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  285. }
  286. {
  287. /slope y2 y1 sub x2 x1 sub div def
  288. /theta slope 1 atan def
  289. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  290. x2 x1 lt y2 y1 le and { /theta theta 180 add def} if
  291. }
  292. ifelse
  293. gsave
  294. clippath
  295. x1 y1 translate
  296. theta rotate
  297. { pathbbox } stopped
  298. { 0 0 0 0 } if
  299. /yMax exch def
  300. /xMax exch def
  301. /yMin exch def
  302. /xMin exch def
  303. grestore
  304. xMax xMin eq yMax yMin eq or
  305. {
  306. grestore
  307. end
  308. }
  309. {
  310. rampdict begin
  311. 20 dict begin
  312. background length 0 gt { background L1setcolor gsave clippath fill grestore } if
  313. gsave
  314. x1 y1 translate
  315. theta rotate
  316. /xStart 0 def
  317. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  318. /ySpan yMax yMin sub def
  319. /numsteps NumSamples def
  320. /rampIndxInc 1 def
  321. /subsampling false def
  322. xStart 0 transform
  323. xEnd 0 transform
  324. 3 -1 roll
  325. sub dup mul
  326. 3 1 roll
  327. sub dup mul
  328. add 0.5 exp 72 div
  329. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  330. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  331. 1 index 1 index lt { exch } if pop
  332. mul
  333. /numpix exch def
  334. numpix 0 ne
  335. {
  336. NumSamples numpix div 0.5 gt
  337. {
  338. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  339. /rampIndxInc NumSamples 1 sub numsteps div def
  340. /subsampling true def
  341. } if
  342. } if
  343. ext0 {
  344. 0 getrampcolor
  345. xMin xStart lt
  346. { xMin yMin xMin neg ySpan rectfill } if
  347. } if
  348. /xInc xEnd xStart sub numsteps div def
  349. /x xStart def
  350. 0
  351. numsteps
  352. {
  353. dup
  354. subsampling { round cvi } if
  355. getrampcolor
  356. x yMin xInc ySpan rectfill
  357. /x x xInc add def
  358. rampIndxInc add
  359. }
  360. repeat
  361. pop
  362. ext1 {
  363. xMax xEnd gt
  364. { xEnd yMin xMax xEnd sub ySpan rectfill } if
  365. } if
  366. grestore
  367. grestore
  368. end
  369. end
  370. end
  371. } ifelse
  372. } bd
  373. /RadialShade {
  374. 40 dict begin
  375. /background exch def
  376. /ext1 exch def
  377. /ext0 exch def
  378. /BBox exch def
  379. /r2 exch def
  380. /c2y exch def
  381. /c2x exch def
  382. /r1 exch def
  383. /c1y exch def
  384. /c1x exch def
  385. /rampdict exch def
  386. gsave
  387. BBox length 0 gt {
  388. BBox 0 get BBox 1 get
  389. BBox 2 get BBox 0 get sub
  390. BBox 3 get BBox 1 get sub
  391. rectclip
  392. } if
  393. gsave
  394. clippath
  395. pathbbox
  396. /BByMax exch def
  397. /BBxMax exch def
  398. /BByMin exch def
  399. /BBxMin exch def
  400. grestore
  401. BBxMax BBxMin eq BByMax BByMin eq or
  402. {
  403. grestore
  404. end
  405. }
  406. {
  407. rampdict begin
  408. 20 dict begin
  409. background length 0 gt { background L1setcolor gsave clippath fill grestore } if
  410. /areaOfConcern
  411. BBxMin BByMin BBxMax BByMax
  412. BBxMin BByMin
  413. BBxMax BBxMin sub 0
  414. 0 BByMax BByMin sub
  415. BBxMin BBxMax sub 0
  416. 12 packedarray
  417. < 0B 00 01 04 04 04 0A>
  418. 2 packedarray
  419. def
  420. c1x c2x sub dup mul
  421. c1y c2y sub dup mul
  422. add 0.5 exp
  423. r1 add
  424. r2 sub
  425. abs
  426. 0 dtransform
  427. dup mul exch dup mul add 0.5 exp 72 div
  428. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  429. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  430. 1 index 1 index lt { exch } if pop
  431. /hires exch def
  432. hires mul
  433. /numpix exch def
  434. /numsteps NumSamples def
  435. /rampIndxInc 1 def
  436. /subsampling false def
  437. numpix 0 ne
  438. {
  439. NumSamples numpix div 0.5 gt
  440. {
  441. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  442. /rampIndxInc NumSamples 1 sub numsteps div def
  443. /subsampling true def
  444. } if
  445. } if
  446. /xInc c2x c1x sub numsteps div def
  447. /yInc c2y c1y sub numsteps div def
  448. /rInc r2 r1 sub numsteps div def
  449. /cx c1x def
  450. /cy c1y def
  451. /radius r1 def
  452. newpath
  453. xInc 0 eq yInc 0 eq rInc 0 eq and and
  454. {
  455. 0 getrampcolor
  456. cx cy radius 0 360 arc
  457. stroke
  458. NumSamples 1 sub getrampcolor
  459. cx cy radius 72 hires div add 0 360 arc
  460. 0 setlinewidth
  461. stroke
  462. }
  463. {
  464. 0
  465. numsteps
  466. {
  467. dup
  468. subsampling { round cvi } if
  469. getrampcolor
  470. cx cy radius 0 360 arc
  471. /cx cx xInc add def
  472. /cy cy yInc add def
  473. /radius radius rInc add def
  474. cx cy radius 360 0 arcn
  475. eofill
  476. rampIndxInc add
  477. }
  478. repeat
  479. pop
  480. } ifelse
  481. grestore
  482. end
  483. end
  484. end
  485. } ifelse
  486. } bd
  487. %%EndResource
  488.